home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1995 / MacHack 1995.toast / Presentations / Presentations ’91 / MPW Stand-Alone Libraries / MakeSA.p < prev    next >
Text File  |  1991-02-27  |  2KB  |  61 lines
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. {$D+}
  3.  
  4. {------------------------------------------------------------------------------
  5. MakeSA.p    Implements a tool for massaging a simple application into a
  6.             single stand alone code resource.
  7.             
  8.     Syntax of MakeSA:
  9.     
  10.         MakeSA [options] filename [filenames…]
  11.     
  12.     Options:
  13.     
  14.         -ct TYPE ---- set rsrc type of non-main code segments  (default = 'DUDE')
  15.         -fc TYPE ---- set the creator attribute of the file    (default = 'RSED')
  16.         -ft TYPE ---- set the type attribute of the file       (default = 'rsrc')
  17.         -help ------- return this help text
  18.         -id integer - set the rsrc ID of the MAIN segment      (default = 128)
  19.         -mt TYPE ---- set the rsrc type of the MAIN segment    (default = 'DUDE')
  20.         -mn Name ---- set the rsrc name of the MAIN segment    (default = '')
  21.         -o filename - Name of the output file                  (default = input.dude)
  22.         -[No]S ------ Allow for multi-segmented code           (default = -NoS)
  23.         -[No]P ------ report progress to stdout                (default = -NoP)
  24.         -[No]T ------ report processing time                   (default = -NoT)
  25.             
  26. NOTE - tools cannot currently be built with -debug… Sorry!
  27. ------------------------------------------------------------------------------}
  28. PROGRAM MakeSA;
  29.  
  30. USES
  31.     { • MacApp }
  32.     UMacApp,
  33.  
  34.     { • Building Blocks }
  35.  
  36.     { • Required for this unit's interface }
  37.     UAssociation,
  38.  
  39.     { • Implementation use }
  40.     CursorCtl, Signal, PasLibIntf, IntEnv, ErrMgr, Events, OSUtils, Memory,
  41.     Resources, Fonts, Packages, ToolUtils, Errors, TextEdit,
  42.  
  43.     { • Inherits from }
  44.     UMPWTool, UMakeSAGlobals, UMultiSegSA, USingleSegSA, UMakeSA;
  45.  
  46.  
  47. {--------------------------------------------------------------------------------------------------}
  48.  
  49. {$S TRes}
  50.  
  51.     BEGIN
  52.         gMakeSA := NIL;
  53.         InitUMPWTool;
  54.         New(gMakeSA);
  55.         FailNil(gMakeSA);
  56.         gMakeSA.IMakeSA;
  57.         gMakeSA.Run;
  58.     END.
  59.  
  60. {--------------------------------------------------------------------------------------------------}
  61.